home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ts.d64 / copy-all.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  95 lines
  1. 100 PRINT"[147] DISK.COPY.64
  2. 110 [134] L2(232),L1%(232),N$(232),T%(232),T$(4)
  3. 120 [131] XXX,SEQ,PRG,USR,REL
  4. 130 [129]J[178]0[164]4:[135]T$(J):[130]J
  5. 140 [133]"FROM UNIT  8CMDCMDCMD";F
  6. 150 [141]800
  7. 160 F$[178]D$
  8. 170 [133]"TO UNIT  9CMDCMDCMD";T
  9. 180 [141]800
  10. 190 T$[178]D$
  11. 200 [139]F[178]T [175]F$[178]T$[167][138]
  12. 210 [141]860
  13. 220 [160]1:[160]15:[159] 15,F,15:[152]15,"I"[170]F$
  14. 230 [141]830:[139] E [167] [144]:[137]220
  15. 240 [133]"PATTERN  *CMDCMDCMD";P$
  16. 250 [129]J[178]1[164][195](P$):[139][202](P$,J,1)[179][177]"*"[167][130]J
  17. 260 P1[178]J[171]1:[139]P1[177]0[167]P$[178][200](P$,P1)
  18. 270 [153]"HOLD DOWN 'Y' OR 'N' KEY TO SELECT"
  19. 280 [153]"PROGRAMS TO BE COPIED..."
  20. 290 [159] 1,F,3,"$"[170]F$
  21. 300 [141]830:[139]E[167][144]:[137]220
  22. 310 [161]#1,A$:A[178][198](A$[170]" ")
  23. 320 [139]A[178]1[176]A[178]65[167]L1[178]253:[137]350
  24. 330 [139]A[178]67[167]L1[178]761:[137]350
  25. 340 [160]1:[153]"?????":[144]
  26. 350 [129]J[178]1[164]L1:[161]#1,X$:[130]J
  27. 360 N[178]0:N1[178]0:R[178]255:Z[178]89
  28. 370 N$[178]"":[141]1020:T9[178]Y[171]128:[141]1000
  29. 380 J1[178]1:Z$[178][199](160):[129]J[178]1[164]16:[161]#1,X$:N$[178]N$[170]X$
  30. 390 [139]X$[179][177]Z$[167]J1[178]J
  31. 400 [130]J
  32. 410 [141]990:L1%[178]Y
  33. 420 [141]980:[141]980
  34. 430 L2[178]X[170]256[172]Y
  35. 440 [139]T9[179]1[176]T9[177]4[137]540
  36. 450 [139]P1[177]0[167][139]P$[179][177][200](N$,P1)[137]540
  37. 460 [153]N$;" ";T$(T9)
  38. 470 P[178][194](197)[175]R
  39. 480 [161]Z$:[139]Z$[178]""[175]P[179][177]64[137]520
  40. 490 [139]Z$[178]"Y"[176]Z$[178]"N"[167]Z[178][198](Z$):R[178]255:[137]520
  41. 500 [139]Z$[178][199](13)[167]R[178]0:[137]520
  42. 510 [137]480
  43. 520 [139]Z[179]80[167][153]"ON                     ON":[137]540
  44. 530 N[178]N[170]1:L2(N)[178]L2:N$(N)[178][200](N$,J1):T%(N)[178]T9:L1%(N)[178]L1%
  45. 540 [139]ST[177]0[137]570
  46. 550 N1[178]N1[170]1:[139]N1[178]8[167]N1[178]0:[137]370
  47. 560 [141]1000:[137]370
  48. 570 [160]1:[160]15:[153]" * * * * *"
  49. 580 [129]J[178]1[164]N
  50. 590 L2[178]L2(J):T%[178]T%(J):[139]L[177]L2[137]640
  51. 600 [153]"*** OUTPUT DISK FULL"
  52. 610 [133]"DO YOU HAVE A NEW ONE";Z$
  53. 620 [139][198](Z$)[179][177]89[167][128]
  54. 630 [141]860:[137]590
  55. 640 [159]14,F,15:[159]15,T,15
  56. 650 [153]N$(J);[200]("                ",17[171][195](N$(J)));
  57. 660 [159]3,F,3,F$[170]":"[170]N$(J)[170]","[170]T$(T%)
  58. 670 [132]14,E,E$,E1,E2:[141]840:[139]E[167][153]"** ";E$;E:[137]750
  59. 680 [139]T%[178]4[167][159]4,T,4,T$[170]":"[170]N$(J)[170]",L,"[170][199](L1%(J)):[137]700
  60. 690 [159]4,T,4,T$[170]":"[170]N$(J)[170]","[170]T$(T%)[170]",W"
  61. 700 L[178]L[171]L2:[141]830:[139]E[167][153]"*** ";E$;E:[137]750
  62. 710 [139]T%[178]4[167][158]4395:[137]730
  63. 720 [158]4352
  64. 730 N$(J)[178]"":[141]830:[139]E[167][153]"**** ";E$;E:[137]750
  65. 740 [153]"ON"
  66. 750 [160]4:[160]3:[160]15:[160]14
  67. 760 [130]J
  68. 770 X[178][184](0):[133]"ANOTHER INPUT DISK READY";Z$
  69. 780 [139][198](Z$)[178]89[137]220
  70. 790 [128]
  71. 800 [133]"DRIVE  0CMDCMDCMD";D
  72. 810 [139]D[172]D[179][177]D[137]800
  73. 820 D$[178][199](D[170]48):[142]
  74. 830 [132]15,E,E$,E1,E2
  75. 840 [139]E[178]0[167]E[178](ST [175] 191):E$[178]"*ST*"
  76. 850 [142]
  77. 860 [159]15,T,15:[133]"WANT TO NEW THE OUTPUT DISK  NCMDCMDCMD";Z$
  78. 870 [139][198](Z$)[179][177]89[137]910
  79. 880 [133]"DISK NAME,ID";X$,Y$
  80. 890 [152]15,"N"[170]T$[170]":"[170]X$[170]","[170]Y$
  81. 900 [141]830:[139]E[167][144]:[137]860
  82. 910 [152]15,"I"[170]T$:[159]1,T,0,"$"[170]T$[170]":!#$%&"
  83. 920 [141]830:[139]E[167][144]:[137]860
  84. 930 [141]980:[141]980
  85. 940 Q[178]Q[170]1:[161]#1,X$:[139]X$[179][177]""[137]940
  86. 950 [141]980
  87. 960 L[178]X[170]Y[172]256:[153]"(";L;"BLOCKS FREE )"
  88. 970 [160]1:[160]15:[142]
  89. 980 [161]#1,X$
  90. 990 [161]#1,X$
  91. 1000 [161]#1,X$
  92. 1010 X[178][195](X$):[139]X[167]X[178][198](X$)
  93. 1020 [161]#1,X$:Y[178][195](X$):[139]Y[167]Y[178][198](X$)
  94. 1030 [142]
  95.